home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / Spider / DRAW5.ADA < prev    next >
Text File  |  1994-01-11  |  190b  |  25 lines
  1. WITH Spider; Use Spider;
  2. PROCEDURE Drawing5 IS 
  3. BEGIN 
  4. Reset; 
  5. Red;
  6. Step;
  7. Step;
  8. Step;
  9. Step;
  10. Turn;
  11. Step;
  12. Green;
  13. Step;
  14. Step;
  15. Step;
  16. Turn;
  17. Red;
  18. Step;
  19. Step;
  20. Step;
  21. Step;
  22. Step;
  23. Quit;
  24. END Drawing5;
  25.